Clickx 23/Clickx 23.iso/Menu.dcr/00008_knop_groep.ls

Text File | 2005-09-14 | 568 b | 34 lines

property pGroepID
global gGroep, gGroepNaam

on beginSprite me
  sprite(me.spriteNum).visible = 1
end

on mouseEnter me
  if pGroepID <> 0 then
    sprite(me.spriteNum).member = "menu_knop_R"
  end if
end

on mouseLeave me
  if pGroepID <> 0 then
    sprite(me.spriteNum).member = "menu_knop_N"
  end if
end

on mouseDown me
  if pGroepID <> 0 then
    sprite(me.spriteNum).member = "menu_knop_D"
    gGroep = pGroepID
  end if
end

on mouseUp me
  if pGroepID <> 0 then
    sprite(me.spriteNum).member = "menu_knop_N"
    deleteLogos()
    go("submenu")
  end if
end